home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 March / CHIP Mart 1997.iso / SurfCam / SURFCAM.Z / MZK2P.M3 < prev    next >
Encoding:
Text File  |  1996-04-01  |  3.8 KB  |  140 lines
  1. name Mazak M2 with tool preselect
  2.  
  3. O >4
  4. N >4
  5. G >2
  6. g >2 G
  7. X ->3.>4
  8. Y ->3.>4
  9. Z ->3.>4
  10. I ->3.>4
  11. J ->3.>4
  12. Q ->3.>4
  13. R ->3.>4
  14. P ->3.>4
  15. F >3.>4
  16. K ->3.>4
  17. H >2
  18. D >2
  19. T >2
  20. M >2
  21. S >4
  22. E >3.>4
  23. ( 00
  24. ) 00
  25. u >3.>4
  26. w >3.>4
  27. % 00
  28.  
  29. ModalGs 0 1 2 3 73 74 76 80 81 82 83 84 85  # List of g codes that are modal    
  30.  
  31. Sequence#s N 0 1 1                    # Char, freq, incr & start          
  32.  
  33. HCode X                               # X or X U  'Horizontal char.       
  34. VCode Y                               # Y or Y V  'Vertical char.         
  35. Dcode Z                               # Depth char.                       
  36. FeedCode F                            # Feed rate char.                   
  37.  
  38. comment ( )                           # Begin End comment char.           
  39.  
  40. Spaces? Y                             # Y or N  'Spaces between words     
  41.  
  42. Spindle 3 4 5                         # Cw, ccw & stop m codes            
  43. Coolant 8 9 7                         # On, Off & Mist m codes            
  44. DComp 41 42 40                        # Left, Right & Cancel m codes      
  45. LComp 43 49                           # On & Off codes                    
  46.  
  47. CtrIncremental? Y                     # Y or N  'Inc or abs I & J         
  48. ByQuadrants? N                        # Y or N  'Break arcs at quadrants  
  49.  
  50. Inc/Abs G 91 90                       # Inc & Abs char. & values          
  51.  
  52. CtrCode I J                           # I J or R or I J K L               
  53. Helical? Y
  54.  
  55. Feed G1                             # Linear move                       
  56. Rapid G0                            # Rapid positioning word            
  57. Cw G2                               # Circular move clockwise           
  58. Ccw G3                              # Circular move counter clockwise   
  59.  
  60. UppercaseComments? Y                  # Y or N 'Require uppercase comments
  61.  
  62. Drill                                 # Drilling canned/manual cycle      
  63. G98 G81 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  64. end cancel
  65.  
  66. Peck                                  # Pecking canned/manual cycle       
  67. G98 G83 X[H] Y[V] Z[D] Q[VBite] R[Vclear] F[FRate]
  68. end cancel
  69.  
  70. Tap                                   # Tapping canned/manual cycle       
  71. G98 G84 X[H] Y[V] Z[D] R[Vclear] F[FRate] P[Dwell]
  72. end cancel
  73.  
  74. LTap                                  # Left handed tapping cycle         
  75. G98 G74 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  76. end cancel
  77.  
  78. Ream                                  # Reaming canned/manual cycle       
  79. G98 G85 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  80. end cancel
  81.  
  82. Bore                                  # Boring canned/manual cycle        
  83. G98 G86 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  84. end cancel
  85.  
  86. Back                                  # Back boring canned/manual cycle   
  87. G98 G87 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  88. end cancel
  89.  
  90. Cancel                                # Cancel a canned/manual cycle      
  91. G80
  92. end
  93.  
  94. StartCode                             # Start of the program              
  95. %0
  96. O[Program#]
  97. G0 G80 G40
  98. End
  99.  
  100. 1stToolChange                         # First tool change                 
  101. N[Block] g91 G28 Z0 M5
  102. G28 X0 Y0
  103. T[Tool]
  104. M6
  105. M[val1]
  106. G0 G90 G[Work] X[H] Y[V] M[Direct] S[Speed]
  107. Z[D] M[Cool] T[NextTool]
  108. End
  109.  
  110. Infeed                                # Enable cutter comp                
  111. G1 Z[D] F[Plunge]
  112. G17 G[Side] X[H] Y[V] D[DComp] F[FRate]
  113. end
  114.  
  115. Outfeed                               # Disable cutter comp               
  116. G1 G40 X[H] Y[V]
  117. Z[D]
  118. end
  119.  
  120. ToolChange                            # Secondary tool changes            
  121. M9
  122. g91 G28 Z0
  123. G30 X0 Y0
  124. N[Block] T[Tool]
  125. M6
  126. M[val1]
  127. G0 G90 G[Work] X[H] Y[V] M[Direct] S[Speed]
  128. Z[D] M[Cool] T[NextTool]
  129. End
  130.  
  131. EndCode                               # End of the program                
  132. g91 G28 Z0
  133. G28 X0 Y0
  134. M30
  135. %0
  136. End
  137.  
  138. ask [val1] " Enter Mcode for spindle range press enter for default: " "38"
  139.  
  140.